Day by Day Vision: Paris/Day by Day Vision: Paris.iso/mac/slide/DATA/MAIN.Dxr/00047.ls

Text File | 1997-10-03 | 11.2 KB | 445 lines

global gpicnum, gsumnum, oldt, chkbtn, vlist, oldvoicenum, oldmusicnum, waitt, gsp, alist, alistsum, gtime, gmlist, gpiclist, am, gslideh, gtemptime, grollflg, gslideh29, gvlist, gsoundlevel, gtlist, gtrans, gtranno, picnum, gmdflg, amusic

on init
  set gmdflg to 0
  set the fileName of cast 1 to "DUMMY.PIC"
  set gpopb to 0
  set gpicnum to 0
  set oldsnum to 0
  set mcount to 0
  set chkbtn to 0
  puppetSprite(2, 1)
  repeat with i = 9 to 14
    puppetSprite(i, 1)
  end repeat
  repeat with i = 9 to 14
    set the visible of sprite i to 0
  end repeat
  repeat with i = 20 to 32
    puppetSprite(i, 1)
  end repeat
  repeat with i = 20 to 32
    set the visible of sprite i to 0
  end repeat
  set gmlist to [0, 1, 0]
  set io to fileio(mnew, "read", the moviePath & "pic.txt")
  if objectp(io) then
    set gpiclist to io(mreadfile)
    io(mdispose)
  end if
end

on picnum num
  set gtime to the ticks
  case num of
    "a":
      set vlist to gpiclist
      set gsumnum to the number of lines in gpiclist
  end case
  go(marker(2))
end

on startMovie
  set amusic to 1
  set gslideh to 32
  set gslideh29 to 34
  set gtemptime to 300
  set gtranno to 0
  set gvlist to [0, 1, 0]
  set gsoundlevel to the soundLevel
  set the soundLevel to 4
  set gtlist to [1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
  set gtrans to 5
end

on stopMovie
  set the fileName of cast 1 to "DUMMY.PIC"
  sound stop 1
  set the soundLevel to gsoundlevel
end

on nextph
  if chkbtn = 1 then
    set gpicnum to gpicnum + 1
    set gtime to the ticks
    if gpicnum > gsumnum then
      set gpicnum to 1
    end if
    if gtranno = 0 then
      set picnum to item 1 of line gpicnum of vlist
      set the fileName of cast 1 to picnum
      set the locH of sprite 2 to 0
      set the locV of sprite 2 to 0
      set the castNum of sprite 2 to 1
      updateStage()
    else
      if gmdflg = 1 then
        popbtnon()
        exit
      else
        go("PT")
      end if
    end if
  end if
end

on backph
  if chkbtn = 1 then
    set gpicnum to gpicnum - 1
    if gpicnum < 1 then
      set gpicnum to gsumnum
    end if
    set picnum to item 1 of line gpicnum of vlist
    set the fileName of cast 1 to picnum
    set the castNum of sprite 2 to 1
    updateStage()
  end if
end

on tomenu
  if chkbtn = 1 then
    init()
    puppetSprite(2, 0)
    updateStage()
    unLoad()
    sound stop 2
    set the visible of sprite 5 to 0
    updateStage()
    go("top")
  end if
end

on pikabtn
  set chkbtn to 1
  set oldt to the ticks
end

on musicbtn
  set amh to mouseH()
  set abtnh to the locH of sprite 13
  if (amh >= (abtnh + 12)) and (amh < (abtnh + 25)) then
    set gmlist to [1, 0, 0]
  else
    if (amh >= (abtnh + 40)) and (amh < (abtnh + 54)) then
      set gmlist to [0, 1, 0]
    else
      if (amh >= (abtnh + 58)) and (amh < (abtnh + 72)) then
        set gmlist to [0, 0, 1]
      else
        if amh >= (abtnh + 75) then
          nothing()
        end if
      end if
    end if
  end if
  set amusic2 to getPos(gmlist, 1)
  set the memberNum of sprite 13 to 12 + amusic2
  if amusic2 = 1 then
    set the visible of sprite 14 to 0
    set amusic to amusic2
    sound stop 1
  else
    if amusic2 <> amusic then
      sound stop 1
      set amusic to amusic2
    end if
    set the visible of sprite 14 to 1
  end if
  updateStage()
end

on popbtnon
  set mh to 100
  set mv to 445
  set the locH of sprite 10 to mh
  set the locV of sprite 10 to mv
  set the locH of sprite 11 to the locH of sprite 10 + 67
  set the locV of sprite 11 to mv
  set the locH of sprite 12 to the locH of sprite 10 - 67
  set the locV of sprite 12 to mv
  set the locH of sprite 9 to mh
  set the locV of sprite 9 to mv - 28
  set the locH of sprite 13 to the locH of sprite 10 - 2
  set the locV of sprite 13 to the locV of sprite 10 - 41
  set the locH of sprite 14 to the locH of sprite 10 - 2
  set the locV of sprite 14 to the locV of sprite 10 - 24
  set the locH of sprite 21 to the locH of sprite 10 - 2
  set the locV of sprite 21 to the locV of sprite 10 - 58
  set the locH of sprite 22 to the locH of sprite 10 + 32
  set the locV of sprite 22 to the locV of sprite 10 - 58
  set the locH of sprite 23 to the locH of sprite 10 - 14
  set the locV of sprite 23 to the locV of sprite 10 - 58
  set the locH of sprite 24 to the locH of sprite 10 + gslideh
  set the locV of sprite 24 to the locV of sprite 10 - 58
  set the locH of sprite 25 to the locH of sprite 10 - 2
  set the locV of sprite 25 to the locV of sprite 10 - 75
  updateStage()
  repeat with i = 10 to 13
    set the visible of sprite i to 1
  end repeat
  if the memberNum of sprite 13 <> 13 then
    set the visible of sprite 14 to 1
  end if
  repeat with i = 21 to 25
    set the visible of sprite i to 1
  end repeat
  go(the frame + 1)
  set chkbtn to 0
  set grollflg to 0
  set the visible of sprite 5 to 1
end

on popbtnoff
  set the visible of sprite 5 to 0
  set chkbtn to 1
  repeat with i = 10 to 14
    set the visible of sprite i to 0
  end repeat
  repeat with i = 21 to 32
    set the visible of sprite i to 0
  end repeat
end

on soundchk
  if (gtime + gtemptime) <= the ticks then
    set chkbtn to 1
  else
    set chkbtn to 0
  end if
end

on usercont
  if rollOver(9) then
    set grollflg to 1
  else
    if grollflg = 1 then
      popbtnoff()
      go(the frame - 1)
      exit
    end if
  end if
  go(the frame)
end

on slideshow
  soundchk()
  nextph()
  go(the frame)
  toend()
end

on toend
  if gpicnum = gsumnum then
    set chkbtn to 1
    go("end")
  end if
end

on slideractiveh
  repeat while the stillDown
    set newh to constrainH(23, mouseH())
    set the locH of sprite 24 to newh
    set gslideh to newh - the locH of sprite 10
    updateStage()
  end repeat
  if gslideh = 32 then
    set gtemptime to 300
  else
    set wk to gslideh - 32
    set gtemptime to 300 - (wk * 4)
  end if
end

on transitionbtn
  set amh to mouseH()
  if (amh < 10) or (amh > 105) then
    exit
  end if
  repeat with i = 9 to 14
    set the visible of sprite i to 0
  end repeat
  repeat with i = 21 to 24
    set the visible of sprite i to 0
  end repeat
  repeat with i = 26 to 32
    set the visible of sprite i to 1
  end repeat
  set the locH of sprite 26 to the locH of sprite 25
  set the locV of sprite 26 to the locV of sprite 25 + 17
  set the locH of sprite 27 to the locH of sprite 25 + 34
  set the locV of sprite 27 to the locV of sprite 25 + 17
  set the locH of sprite 28 to the locH of sprite 25 - 12
  set the locV of sprite 28 to the locV of sprite 25 + 12
  set the locH of sprite 29 to the locH of sprite 25 + 34 + gslideh29 - 34
  set the locV of sprite 29 to the locV of sprite 25 + 17
  set the locH of sprite 30 to the locH of sprite 25 + 2
  set the locV of sprite 30 to the locV of sprite 25 + 38
  set the locH of sprite 31 to the locH of sprite 25 + 2
  set the locV of sprite 31 to the locV of sprite 25 + 63
  set the locH of sprite 32 to the locH of sprite 25 + 2
  set the locV of sprite 32 to the locV of sprite 25 + 88
  if the memberNum of sprite 30 = 27 then
    repeat with c = 26 to 29
      set the visible of sprite c to 0
    end repeat
  end if
  updateStage()
end

on tranchk
  global abtnh, abtnv, am
  set amh to mouseH()
  set amv to mouseV()
  set abtnh to the locH of sprite 25
  set abtnv to the locV of sprite 25
  if (amv >= (abtnv + 28)) and (amv < (abtnv + 51)) then
    if (amh >= (abtnh - 78)) and (amh < (abtnh - 51)) then
      set gtlist to [1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
    else
      if (amh >= (abtnh - 34)) and (amh < (abtnh - 6)) then
        set gtlist to [0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
      else
        if (amh >= (abtnh + 9)) and (amh < (abtnh + 37)) then
          set gtlist to [0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0]
        else
          if (amh >= (abtnh + 48)) and (amh < (abtnh + 80)) then
            set gtlist to [0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0]
          end if
        end if
      end if
    end if
  end if
  if (amv >= (abtnv + 54)) and (amv < (abtnv + 77)) then
    if (amh >= (abtnh - 78)) and (amh < (abtnh - 51)) then
      set gtlist to [0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0]
    else
      if (amh >= (abtnh - 34)) and (amh < (abtnh - 6)) then
        set gtlist to [0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0]
      else
        if (amh >= (abtnh + 9)) and (amh < (abtnh + 37)) then
          set gtlist to [0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0]
        else
          if (amh >= (abtnh + 48)) and (amh < (abtnh + 80)) then
            set gtlist to [0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0]
          end if
        end if
      end if
    end if
  end if
  if (amv >= (abtnv + 79)) and (amv < (abtnv + 102)) then
    if (amh >= (abtnh - 78)) and (amh < (abtnh - 51)) then
      set gtlist to [0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0]
    else
      if (amh >= (abtnh - 34)) and (amh < (abtnh - 6)) then
        set gtlist to [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0]
      else
        if (amh >= (abtnh + 9)) and (amh < (abtnh + 37)) then
          set gtlist to [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0]
        else
          if (amh >= (abtnh + 48)) and (amh < (abtnh + 80)) then
            set gtlist to [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1]
          end if
        end if
      end if
    end if
  end if
  set am to getPos(gtlist, 1)
  if (am >= 1) and (am <= 4) then
    set the memberNum of sprite 30 to 26 + am
    set the memberNum of sprite 31 to 31
    set the memberNum of sprite 32 to 36
    updateStage()
  else
    if (am >= 5) and (am <= 8) then
      set the memberNum of sprite 30 to 26
      set the memberNum of sprite 31 to 27 + am
      set the memberNum of sprite 32 to 36
      updateStage()
    else
      if (am >= 9) and (am <= 12) then
        set the memberNum of sprite 30 to 26
        set the memberNum of sprite 31 to 31
        set the memberNum of sprite 32 to 28 + am
        updateStage()
      end if
    end if
  end if
  case am of
    1:
      set gtranno to 0
    2:
      set gtranno to 26
    3:
      set gtranno to 51
    4:
      set gtranno to 38
    5:
      set gtranno to 28
    6:
      set gtranno to 27
    7:
      set gtranno to 37
    8:
      set gtranno to 49
    9:
      set gtranno to 41
    10:
      set gtranno to 9
    11:
      set gtranno to 5
    12:
      set gtranno to 7
  end case
  if am = 1 then
    repeat with c = 26 to 29
      set the visible of sprite c to 0
    end repeat
  else
    repeat with c = 26 to 29
      set the visible of sprite c to 1
    end repeat
  end if
end

on slidertranh
  repeat while the stillDown
    set newh to constrainH(28, mouseH())
    set the locH of sprite 29 to newh
    set gslideh29 to newh - the locH of sprite 25
    updateStage()
  end repeat
  set sts to (gslideh29 + 11) / 10
  set gtrans to 10 - sts
end

on volumebtn
  set amh to mouseH()
  set abtnh to the locH of sprite 14
  if (amh >= (abtnh + 10)) and (amh < (abtnh + 25)) then
    set gvlist to [1, 0, 0]
  else
    if (amh >= (abtnh + 37)) and (amh < (abtnh + 52)) then
      set gvlist to [0, 1, 0]
    else
      if (amh >= (abtnh + 61)) and (amh < (abtnh + 76)) then
        set gvlist to [0, 0, 1]
      else
        if amh >= (abtnh + 76) then
          nothing()
        end if
      end if
    end if
  end if
  set am to getPos(gvlist, 1)
  set the memberNum of sprite 14 to 15 + am
  case am of
    1:
      set the soundLevel to 1
    2:
      set the soundLevel to 4
    3:
      set the soundLevel to 7
  end case
  updateStage()
end